'call MakeAppData(1)

Tpl.Assign "CataBar",OutCatalogeBar("0","ID")
call Tpl.AssignStr("TopInfoLists",OutTopInfoContents(1,0,NoLockedTopnInfo),"cache\xsl\top-info.xsl")
call Tpl.AssignStr("TopSubjectLists",GetTopSubject(15,FrontCutTitle,NoLockedTopn,0), "cache\xsl\top-subject.xsl")
call Tpl.AssignStr("TopReplyLists",GetTopReply(15,26,NoReplyList,""), "cache\xsl\top-reply.xsl")

call Tpl.AssignStr("LinksLists",OutLinksTopn(50),"cache\xsl\links-lists.xsl")
Tpl.Assign "Title", IniTitle
if NeedHtmlPage then Call WriteTo(Tpl.GetValue("BasePath") & "index.html",Tpl.Fetch("cache\cemplate\default.html"))
